From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 12 Mar 1993 10:15:36 +0000 (+0000)
Subject: (Fx_popup_menu): Allow a frame instead of a window, in arg.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96907
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=933ff4729c2ba80f7dbee4b2aba359be7f69f5f6;p=emacs.git

(Fx_popup_menu): Allow a frame instead of a window, in arg.
Use Fcar, Fcdr when extracting from event, to check data types.
---

diff --git a/src/xmenu.c b/src/xmenu.c
index aa8ec70a520..4d86a6296b2 100644
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -132,9 +132,9 @@ be the return value for that line (i.e. if it is selected).")
     }
   else
     {
-      tem = EVENT_START (position);
-      window = POSN_WINDOW (tem);
-      tem = POSN_WINDOW_POSN (tem);
+      tem = Fcar (Fcdr (position));  /* EVENT_START (position) */
+      window = Fcar (tem);	     /* POSN_WINDOW (tem) */
+      tem = Fcar (Fcdr (Fcdr (tem))); /* POSN_WINDOW_POSN (tem) */
       x = Fcar (tem);
       y = Fcdr (tem);
     }